VERSION 5.00
Begin VB.Form frmSecret 
   BackColor       =   &H00000000&
   ClientHeight    =   1215
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5655
   Icon            =   "frmBlah.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1215
   ScaleWidth      =   5655
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame PanelfUser 
      BackColor       =   &H00000000&
      Caption         =   "Send false (Username and Message)"
      ForeColor       =   &H00FFFF00&
      Height          =   1215
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5655
      Begin VB.ComboBox txtMessage 
         BackColor       =   &H00000000&
         ForeColor       =   &H00FFFFFF&
         Height          =   315
         Left            =   960
         TabIndex        =   4
         Top             =   720
         Width           =   4575
      End
      Begin VB.TextBox txtFalseName 
         BackColor       =   &H00000000&
         ForeColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   960
         TabIndex        =   3
         Top             =   330
         Width           =   4575
      End
      Begin VB.Label Label2 
         BackColor       =   &H00000000&
         Caption         =   "Message:"
         ForeColor       =   &H0000FFFF&
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   720
         Width           =   855
      End
      Begin VB.Label Label1 
         BackColor       =   &H00000000&
         Caption         =   "Username:"
         ForeColor       =   &H0000FFFF&
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   1095
      End
   End
End
Attribute VB_Name = "frmSecret"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

Me.Caption = "VectorNet Bot v2.4 - Secrets"

End Sub

Private Sub txtMessage_KeyPress(KeyAscii As Integer)

Dim falseuser As String

If KeyAscii = 13 Then
  falseuser = txtFalseName.text
   If frmChat.sckVectorNet.State = sckConnected Then
     sendPacket &H2, falseuser & Chr$(0) & txtMessage.text
     AddChat vbYellow, "<" & falseuser & "> ", vbWhite, txtMessage.text
     frmStatus.txtMainWindowAddChat.Caption = frmStatus.txtMainWindowAddChat.Caption + 1
     
    txtMessage.text = ""
   Else
     AddChat vbYellow, "You must be connected to send chat messages!"
     frmStatus.txtMainWindowAddChat.Caption = frmStatus.txtMainWindowAddChat.Caption + 1
     
  End If
End If

End Sub
